home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 5 / Amiga Tools 5.iso / tools / developer-tools / e-tools / egui-tools / src / sizeplug-test.e < prev    next >
Encoding:
Text File  |  1996-04-29  |  1.6 KB  |  27 lines
  1. OPT     OSVERSION=37            /* EasyGUI arbeitet erst ab V.37*/
  2.  
  3. MODULE  'intuition/intuition'   /* Für das image-object...      */
  4. MODULE  'plugin/sizeplug'       /* für das Size-plugin          */
  5. MODULE  'tools/easygui'         /* für easygui                  */
  6.  
  7.  DEF    p:PTR TO sizeplug       /* Pointer auf das Sizeplug-Obj */,
  8.         len=10                  /* Längenmaß...                 */
  9.  
  10. PROC main()     HANDLE                                          /* MAIN-Prozedur mit EXCEPTION-HANDLING */
  11.  DEF    ourtask                                                 /* Zeiger auf unseren Task...           */
  12.   ourtask:=FindTask(NIL)                                        /* Unseren Task ausfindig machen...     */
  13.    SetTaskPri(ourtask,-2)                                       /* Da wir ja praktisch nix tun sollen...*/
  14.     easygui('Size-Plugintest!',                                 /* EasyGUI-Prozedur                     */
  15.         [ROWS,
  16.                 [PLUGIN, 0, NEW p.create(0,12,10,0)],           /* Window(size)-Plugin                  */
  17.                 [SBUTTON,{next},'Next']])
  18. EXCEPT DO                                                       /* Exception Handling...                */
  19.     END p                                                       /* Speicher für p wieder freigeben      */
  20.    IF exception THEN CleanUp(20) ELSE CleanUp(0)                /* CleanUp() DOS-Returnwert setzen      */
  21. ENDPROC                                                         /* Ende der MainProzedur...             */
  22.  
  23. PROC next()
  24.  p.change(len,len,len,len)                                      /* Fenster um eine längeneinheit größer */
  25.   len:=len+10
  26. ENDPROC
  27.